           \  Z  :     =      =          	  @  
  D                            Schiebetre 4teil.                L A1?A?1         L       t       t      t                                 
            `
         A!A]g@        ?          D      X    Invalid parameters!           ! sliding 5' 0"
if f-0.022<=-0.0001 then 50
if c-2*f<=-0.0001 then 50
if H<0 or H>100 then 50   
if M<1 or L<1 then 50
if E>0.9999 then 10
if (a-(2*D+3*e+2"*(M-1)))/M<0.0001 then 50
if (b-(2*D+2*e+1"*(L-1)))/L<0.0001 then 50

10:
addz -C*E~
mulx -1
addx -a/2

call frame_ a,b,C,D
MATERIAL G
addx D
addz C/2-F
if e<1 then 20
E=0.075
block a/4-D/2+E/2,b-D,F 
addz F
addx (a/4-D/2-E/2)*0.01*(100-H)
block a/4-D/2+E/2,b-D,F
del 3
mulx -1
addx -a+2*d
addz C/2-F
block a/4-D/2+E/2,b-D,F 
addz F
addx (a/4-D/2-E/2)*0.01*(100-H)
block a/4-D/2+E/2,b-D,F
del 2
addz f/2
 
goto 30
20:
call int_rect_frame a/4-D/2+e/2,b-D,e,F
addz F
addx (a/4-D/2-e/2)*0.01*(100-H)
call int_rect_frame a/4-D/2+e/2,b-D,e,F
del 2
addz F/6
addx e
addy e
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
addz F
addx (a/4-D/2-e/2)*0.01*(100-H)
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
del 5
addz F/2
addx e
addy e
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
addz F
addx (a/4-D/2-e/2)*0.01*(100-H)
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
del 4

mulx -1

addx -a+2*d
addz -F/2
call int_rect_frame a/4-D/2+e/2,b-D,e,F
addz F
addx (a/4-D/2-e/2)*0.01*(100-H)
call int_rect_frame a/4-D/2+e/2,b-D,e,F
del 2
addz F/6
addx e
addy e
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
addz F
addx (a/4-D/2-e/2)*0.01*(100-H)
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
del 5
addz F/2
addx e
addy e
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
addz F
addx (a/4-D/2-e/2)*0.01*(100-H)
call double_grille_2 a/4-D/2-3*e/2,b-D-2*e,F/3,M,L
del 4

if i=0 then 30
material i
addx e
addy e
rect a/4-D/2-3/2*e,b-D-2*e
addx (a/4-D/2-e/2)*0.01*(100-H)
addz F
rect a/4-D/2-3/2*e,b-D-2*e
del 7
mulx -1
addx e
addy e
rect a/4-D/2-3/2*e,b-D-2*e
addx (a/4-D/2-e/2)*0.01*(100-H)
addz F
rect a/4-D/2-3/2*e,b-D-2*e
del 6

30:


if j<>1 or h>0 then 60
addx a/2-d
addz -f/2-0.001
w=(a/2-D-3*e/2)/3
y=(b-d)/2
lin_ -e/2-w,y,0,-e/2-2*w,y,O
lin_ -e/2-w,y,0,-e/2-4/3*w,w/3+y,0
lin_ -e/2-w,y,0,-e/2-4/3*w,-w/3+y,0
mulx -1
lin_ -e/2-w,y,0,-e/2-2*w,y,O
lin_ -e/2-w,y,0,-e/2-4/3*w,w/3+y,0
lin_ -e/2-w,y,0,-e/2-4/3*w,-w/3+y,0
goto 60
50:
print "Invalid parameters!"
60: 
endif C-2*F<=-0.0001 then 1
if H<0 or H>100 then 1

ADD2 0,C*E~
MUL2 -1,1


RECT2 -A/2,-C,-A/2+D,0
N=E
if e>0.9999 then 2
LINE2  -A/2+D+E,-C/2+F,-A/2+D+E,-C/2
LINE2  -A/4+D/2-E/2,-C/2+F,-A/4+D/2-E/2,-C/2
LINE2  -A/2+D+E,-C/2+F/2,-A/4+D/2-E/2,-C/2+F/2
GOTO 3
2:
N=0.08
3:
RECT2 -A/2+D,-C/2,-A/4+D/2+N/2,-C/2+F
ADD2  (A/4-D/2-N/2)*0.01*(100-H),-F
RECT2 -A/2+D,-C/2,-A/4+D/2+N/2,-C/2+F
if e>0.9999 then 4
LINE2  -A/2+D+E,-C/2+F,-A/2+D+E,-C/2
LINE2  -A/4+D/2-E/2,-C/2+F,-A/4+D/2-E/2,-C/2
LINE2  -A/2+D+E,-C/2+F/2,-A/4+D/2-E/2,-C/2+F/2
4:
DEL 1
MUL2 -1,1

RECT2 -A/2,-C,-A/2+D,0
RECT2 -A/2+D,-C/2,-A/4+D/2+N/2,-C/2+F
if e>0.9999 then 5
LINE2  -A/2+D+E,-C/2+F,-A/2+D+E,-C/2
LINE2  -A/4+D/2-E/2,-C/2+F,-A/4+D/2-E/2,-C/2
LINE2  -A/2+D+E,-C/2+F/2,-A/4+D/2-E/2,-C/2+F/2
5:

ADD2  (A/4-D/2-N/2)*0.01*(100-H),-F
RECT2 -A/2+D,-C/2,-A/4+D/2+N/2,-C/2+F
if e>0.9999 then 6
LINE2  -A/2+D+E,-C/2+F,-A/2+D+E,-C/2
LINE2  -A/4+D/2-E/2,-C/2+F,-A/4+D/2-E/2,-C/2
LINE2  -A/2+D+E,-C/2+F/2,-A/4+D/2-E/2,-C/2+F/2
6:


IF K=0 THEN 7
DEL 1
LINE2 -A/2+D,0,A/2-D,0
LINE2 -A/2+D,-C,A/2-D,-C


GOTO 7
1:
FRAGMENT2 1,1
7:
END   L  `?      <       L   $   L      <      <      <           ?`?`       ?`?           ?    ?           ?    ?`       ?ě?P`       ?{ě?{P`       ?x?{x       ?P`?	P`       ?	P`?	ě       ?	ě?ě       ?ě?P`       ?{ě    ě           ě    P`           P`?{P`       ?{P`?{ě       ?	P`?	ě       =
P`=
ě       ?	+=
+       ``       `                              `       P`	P`       	P`	ě       	ěě       ěP`       ěP`       {ě{P`       xտ{x       {ě    ě           ě    P`           P`{P`       {P`{ě       	P`	ě       
P`
ě       	+
+          {
} 
      >                                              A  X Dimension                         @33@   B  Z Dimension                         @    C  Rahmenstrke ss   @
         ?    D  Rahmenbreite ess  @
         ?
=`   E  Trbreite  1-solid   olid         ?z@   F  Trstrke  immer > 1"  > 1" 22     ?
=`   G	  Material Tr terial 0No
         @.      H   Offen %  geschl.-0->voll-100               I	  Material Glas  Allgemein-keine     @8      J   ffnungslinie  1ja  0keine o             K   Schwelle in 2D  0keine no                L   Teile # vert l Panes -solid         ?      M   Teile # hor ntal Panes -solid       ?                